home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 002 / pcspell.arc / PC-SPELL.BAS < prev    next >
Encoding:
BASIC Source File  |  1984-10-28  |  1.5 KB  |  40 lines
  1. 10 ON ERROR GOTO 390
  2. 20 KILL"misspell":LOCATE ,,1
  3. 30 KILL"qwertyui"
  4. 40 ON ERROR GOTO 0
  5. 50 INPUT "drive for pc-spell disk ";DDISK$
  6. 60 IF INSTR(DDISK$,":")=0 THEN PRINT "bad drive name. please use colon.":GOTO 50
  7. 70 INPUT "drive for work disk";WDISK$
  8. 80 IF INSTR(WDISK$,":")=0 THEN PRINT "bad drive name. please use colon.":GOTO 70
  9. 90 IF DDISK$=WDISK$ AND (DDISK$="a:" OR DDISK$="A:") THEN
  10. 100 REM word lister
  11. 110 A$=WDISK$+"*.*"
  12. 120 FILES A$:KEY OFF
  13. 130 INPUT FILE$
  14. 140 OPEN WDISK$+FILE$ FOR INPUT AS #1
  15. 150 DIM WORD$(2000):CLS:W=1
  16. 160 WHILE NOT EOF(1) AND FRE(0)>2500:LOCATE 1,1:PRINT TIME$;
  17. 170 GOSUB 280:LINE INPUT#1,A$:IF A$="" THEN 240 'skip blank line
  18. 180 COUNT=COUNT+1
  19. 190 X=1
  20. 200 IF LEN(A$)<X THEN 240
  21. 210 CHAR$=MID$(A$,X,1)
  22. 220 IF ASC(CHAR$)<=64 THEN GOSUB 280 ELSE GOSUB 320
  23. 230 X=X+1:GOTO 200
  24. 240 WEND
  25. 250 IF EOF(1) THEN COUNT=0:RESET:GOTO 360
  26. 260 RESET:GOTO 360
  27. 270 REM found end of word (punctuation)
  28. 280 IF CHAR$="'" THEN 320 ' leave apostraphies in words.
  29. 290 IF LEN(WORD$)>1 THEN WORD$(W)=WORD$:W=W+1:LOCATE 25,1:PRINT "word # ";W;:WORD$="" ELSE WORD$=""
  30. 300 RETURN
  31. 310 REM another letter or '
  32. 320 IF CHAR$>"@" AND CHAR$<"[" THEN CHAR$=CHR$(ASC(CHAR$)+32)
  33. 330 WORD$=WORD$+CHAR$
  34. 340 RETURN
  35. 350 IF CHAR$>="A" THEN 320 ELSE 280
  36. 360 LOCATE 5,1:COLOR 24,7:PRINT "Cleaning out memory...please be patient";:COLOR 7,0
  37. 370 LOCATE ,1:PRINT SPACE$(79);
  38. 380 COMMON WORD$(),W,WDISK$,DDISK$:CHAIN DDISK$+"pc-spell.sor"
  39. 390 RESUME NEXT
  40.